ORG 100
CLA
CLE
LDA X
CIL
SZE
BUN POS1
BUN SEC
POS1, CIR
CMA
INC
STA X
LDA UNO
ADD SEGNO
STA SEGNO
SEC, LDA Y
CIL
SZE
BUN POS2
BUN START
POS2, CIR
CMA
INC
STA Y
LDA DUE
ADD SEGNO
STA SEGNO
CLA
CLE
BUN START 


START, LDA X
CIR
STA X
SZE
BUN SOMMA
NEXT, LDA X
SPA
BUN FINE
LDA Y
CIL
STA Y
BUN START


FINE, LDA SEGNO
SZA
BUN NEG
HLT
NEG, LDA RIS
CMA
INC
STA RIS
HLT



SOMMA, CLE
CLA
LDA Y
ADD RIS
STA RIS
BUN NEXT

UNO, DEC 1
DUE, DEC -1
X, DEC 5
Y, DEC 2
SEGNO, DEC 0
RIS, DEC 0
END

